home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 2.iso / dist / fw_groff.idb / usr / freeware / share / groff / 1.17.2 / tmac / e.tmac.z / e.tmac
Text File  |  2002-04-08  |  20KB  |  1,577 lines
  1. .\"    @(#)e.tmac    2.31 (Berkeley) 5/21/88
  2. .\"    Modified by James Clark for use with groff.
  3. .\"
  4. .\" Copyright (c) 1988 Regents of the University of California.
  5. .\" All rights reserved.
  6. .\"
  7. .\" Redistribution and use in source and binary forms are permitted
  8. .\" provided that this notice is preserved and that due credit is given
  9. .\" to the University of California at Berkeley. The name of the University
  10. .\" may not be used to endorse or promote products derived from this
  11. .\" software without specific prior written permission. This software
  12. .\" is provided ``as is'' without express or implied warranty.
  13. .if !\n(.g .ig
  14. .de @R
  15. .if !r\\$1 .nr \\$1 0
  16. ..
  17. .@R pf
  18. .if \n(pf .nx
  19. .if !\n(.g .ig
  20. .de @S
  21. .if !d\\$1 .ds \\$1 
  22. ..
  23. .@R @
  24. .de @C
  25. .nr _S \\n(.s
  26. .nr _V \\n(.v
  27. .nr _F \\n(.f
  28. .do ds _A \\n[.fam]
  29. .nr _I \\n(.i
  30. .ev \\$1
  31. .ps \\n(_S
  32. .vs \\n(_Vu
  33. .ft \\n(_F
  34. .do @fam \\*(_A
  35. 'in \\n(_Iu
  36. .xl \\n($lu
  37. .lt \\n($lu
  38. .rr _S
  39. .rr _V
  40. .rr _F
  41. .rr _I
  42. .ls 1
  43. 'ce 0
  44. ..
  45. .de @D
  46. .ds |p "\\$3
  47. .nr _d 0
  48. .if "\\$2"C" \
  49. .nr _d 1
  50. .if "\\$2"L" \
  51. .nr _d 2
  52. .if "\\$2"I" \
  53. .nr _d 3
  54. .if "\\$2"M" \
  55. .nr _d 4
  56. .if !\\n(_d \{\
  57. .nr _d \\$1
  58. .ds |p "\\$2
  59. .\}
  60. ..
  61. .de @z
  62. .if \n@>1 .tm >> @z, .z=\\n(.z ?a=\\n(?a
  63. .if !"\\n(.z"" \
  64. \{\
  65. .tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
  66. .di
  67. .ex
  68. .\}
  69. .if \\n(?a \
  70. .bp
  71. .ds bp
  72. .ds @b
  73. .br
  74. .if \n@>1 .tm << @z
  75. ..
  76. .ie \n(.g .ds $* \\\\$*
  77. .el .ds $* \\\\$1 \\\\$2 \\\\$3 \\\\$4 \\\\$5 \\\\$6 \\\\$7 \\\\$8 \\\\$9
  78. .de he
  79. .ie !\\n(.$ \
  80. \{\
  81. .rm |4
  82. .rm |5
  83. .\}
  84. .el \
  85. \{\
  86. .ds |4 "\*($*
  87. .ds |5 "\*($*
  88. .\}
  89. ..
  90. .de eh
  91. .ie !\\n(.$ \
  92. .rm |4
  93. .el \
  94. .ds |4 "\*($*
  95. ..
  96. .de oh
  97. .ie !\\n(.$ \
  98. .rm |5
  99. .el \
  100. .ds |5 "\*($*
  101. ..
  102. .de fo
  103. .ie !\\n(.$ \
  104. \{\
  105. .rm |6
  106. .rm |7
  107. .\}
  108. .el \
  109. \{\
  110. .ds |6 "\*($*
  111. .ds |7 "\*($*
  112. .\}
  113. ..
  114. .de ef
  115. .ie !\\n(.$ \
  116. .rm |6
  117. .el \
  118. .ds |6 "\*($*
  119. ..
  120. .de of
  121. .ie !\\n(.$ \
  122. .rm |7
  123. .el \
  124. .ds |7 "\*($*
  125. ..
  126. .de ep
  127. .if \\n(nl>0 \
  128. \{\
  129. .wh 0
  130. .rs
  131. .@b
  132. .\}
  133. ..
  134. .de @h
  135. .if \n@>1 .tm >> @h %=\\n% ?a=\\n(?a ?b=\\n(?b ?w=\\n(?w
  136. .if (\\n(.i+\\n(.o)>=\\n(.l \
  137. .tm Line \\n(c. -- Offset + indent exceeds line length
  138. .nr ?h \\n(?H
  139. .nr ?H 0
  140. .nr ?c \\n(?C
  141. .nr ?C 0
  142. .rn |4 |0
  143. .rn |5 |1
  144. .rn |6 |2
  145. .rn |7 |3
  146. .nr _w 0
  147. .nr ?W 0
  148. .nr ?I 1
  149. .ev 2
  150. .rs
  151. .if \\n(hm>0 \
  152. .sp |\\n(hmu
  153. .@t $h
  154. .if \\n(tm<=0 \
  155. .nr tm \n(.Vu
  156. .sp |\\n(tmu
  157. .ev
  158. .mk _k
  159. .if \\n(?n .nm 1
  160. .nr $c 1
  161. .if \n@>4 .tm -- @h >> .ns nl=\\n(nl %=\\n% _k=\\n(_k tm=\\n(tm
  162. .ie \\n(?s \
  163. \{\
  164. .nr ?s 0
  165. .rs
  166. '    @b
  167. .\}
  168. .el \
  169. .@n
  170. .if \n@>2 .tm << @h
  171. ..
  172. .de @n
  173. .if \n@>3 .tm >> @n nl=\\n(nl %=\\n% ?f=\\n(?f ?o=\\n(?o
  174. .if \\n(bm<=0 \
  175. .nr bm \\n(.Vu
  176. .if (\\n(_w<=\\n($l)&(\\n(?W=0) \
  177. \{\
  178. .nr _b (\\n(ppp*\\n($vu)/200u
  179. .if \\n(_bu>((\\n(bmu-\\n(fmu-((\\n(tpp*\\n($vu)/100u))/2u) \
  180. .nr _b (\\n(ppp*\\n($vu)/100u-\n(.Vu
  181. .nr _b +\\n(bmu
  182. .\}
  183. .nr _B \\n(_bu
  184. .ch @f
  185. .wh -\\n(_bu @f
  186. .nr _b +(\\n(ppp*\\n($vu)/100u
  187. .if \n@>2 .tm @n .p=\\n(.p bm=\\n(bm _b=\\n(_b _B=\\n(_B
  188. .nr ?f 0
  189. .if \\n(?o \
  190. \{\
  191. .(f _
  192. .nf
  193. .|o
  194. .fi
  195. .)f
  196. .rm |o
  197. .\}
  198. .nr ?o 0
  199. .if \\n(?T \
  200. \{\
  201. .nr _i \\n(.i
  202. .in 0
  203. .|h
  204. .in \\n(_iu
  205. .rr _i
  206. .mk #T
  207. .ns
  208. .\}
  209. .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
  210. \{\
  211. .nr ?a 0
  212. .@k |t
  213. .if \\n(?w \
  214. .mk _k
  215. .nr ?w 0
  216. .\}
  217. .os
  218. .$H
  219. .ns
  220. ..
  221. .de @f
  222. .if \n@>1 .tm >> @f %=\\n% nl=\\n(nl ?a=\\n(?a ?b=\\n(?b ?f=\\n(?f
  223. .if \n@>2 .nr VL \\n(.pu-\\n(nlu
  224. .if \n@>2 .tm @f bm=\\n(bm _B=\\n(_B _b=\\n(_b .p-nl=\\n(VL
  225. .ec
  226. .if \\n(?T \
  227. \{\
  228. .nr T. 1
  229. .T# 1
  230. .br
  231. .\}
  232. .ev 2
  233. .ce 0
  234. .if \\n(?b \
  235. \{\
  236. .nr ?b 0
  237. .@k |b
  238. .\}
  239. .if \\n(?f \
  240. .@o
  241. .ie \\n($c<\\n($m \
  242. .@c
  243. .el \
  244. .@e
  245. .ev
  246. .if \n@>2 .tm << @f
  247. ..
  248. .de @o
  249. .nf
  250. .ls 1
  251. .in 0
  252. .if \n@>2 .tm @o last printed text = \\n(nl placing @r trap at -\\n(_B
  253. .wh -\\n(_Bu @r
  254. .|f
  255. .fi
  256. .if \n@>2 .tm @o triggered @r (?o) = \\n(?o
  257. .if \\n(?o \
  258. \{\
  259. .di
  260. .if \\n(dn=0 \
  261. \{\
  262. .rm |o
  263. .nr ?o 0
  264. .\}
  265. .nr dn \\n(_D
  266. .rr _D
  267. .\}
  268. .rm |f
  269. .ch @r
  270. ..
  271. .de @c
  272. .if \n@>2 .tm    >> @c %=\\n%
  273. .rs
  274. .sp |\\n(_ku
  275. .@O +\\n($lu+\\n($su
  276. .nr $c +1
  277. .@n
  278. ..
  279. .de @e
  280. .if \n@>2 .tm    >> @e
  281. .@O \\n(_ou
  282. .rs
  283. .sp |\\n(.pu-\\n(fmu-((\\n(tpp*\\n($vu)/100u)
  284. .@t $f
  285. .nr ?h 0
  286. .bp
  287. ..
  288. .de @t
  289. .if !\\n(?h \
  290. \{\
  291. .sz \\n(tp
  292. .@F \\n(tf
  293. .lt \\n(_Lu
  294. .nf
  295. .\\$1
  296. .br
  297. .\}
  298. ..
  299. .de $h
  300. .ds |z
  301. .if !\\n(?c \
  302. \{\
  303. .if e .ds |z "\\*(|0
  304. .if o .ds |z "\\*(|1
  305. .\}
  306. .if !\(ts\\*(|z\(ts\(ts \
  307. '    tl \\*(|z
  308. .rm |z
  309. ..
  310. .de $f
  311. .ds |z
  312. .if \\n(?c \
  313. \{\
  314. .if e .ds |z "\\*(|0
  315. .if o .ds |z "\\*(|1
  316. .\}
  317. .if \(ts\\*(|z\(ts\(ts \
  318. \{\
  319. .if e .ds |z "\\*(|2
  320. .if o .ds |z "\\*(|3
  321. .\}
  322. .if !\(ts\\*(|z\(ts\(ts \
  323. '    tl \\*(|z
  324. .rm |z
  325. ..
  326. .de @r
  327. .if \n@>3 .tm        >> @r .z=\\n(.z ?f=\\n(?f ?a=\\n(?a ?b=\\n(?b _b=\\n(_b
  328. .di |o
  329. .nr ?o 1
  330. .nr _D \\n(dn
  331. .ns
  332. ..
  333. .rn bp @b
  334. .de bp
  335. .nr $c \\n($m
  336. .ie \\n(nl>0 \
  337. .@b \\$1
  338. .el \
  339. \{\
  340. .if \\n(.$>0 \
  341. .pn \\$1
  342. .if \\n(?I \
  343. .@h
  344. .\}
  345. .br
  346. .wh 0 @h
  347. ..
  348. .rn ll xl
  349. .de ll
  350. .xl \\$1
  351. .lt \\$1
  352. .nr $l \\n(.l
  353. .if (\\n($m<=1):(\\n($l>\\n(_L) \
  354. .nr _L \\n(.l
  355. ..
  356. .rn po @O
  357. .de po
  358. .@O \\$1
  359. .nr _o \\n(.o
  360. ..
  361. .if !\n(.g .ig
  362. .do rn fam @fam
  363. .do de fam
  364. .do @fam \\$1
  365. .ev 2
  366. .do @fam \\$1
  367. .ev
  368. ..
  369. .de hx
  370. .nr ?H 1
  371. ..
  372. .de ix
  373. 'in \\$1
  374. ..
  375. .de bl
  376. .br
  377. .ne \\$1
  378. .rs
  379. .sp \\$1
  380. ..
  381. .de n1
  382. .nm 1
  383. .xl -\w'0000'u
  384. .nr ?n 1
  385. ..
  386. .de n2
  387. .nm \\$1
  388. .ie \\n(.$ \
  389. .xl -\w'0000'u
  390. .el \
  391. .xl \\n($lu
  392. ..
  393. .de pa
  394. .bp \\$1
  395. ..
  396. .de ro
  397. .af % i
  398. ..
  399. .de ar
  400. .af % 1
  401. ..
  402. .de m1
  403. .nr _0 \\n(hmu
  404. .nr hm \\$1v
  405. .nr tm +\\n(hmu-\\n(_0u
  406. .rr _0
  407. ..
  408. .de m2
  409. .nr tm \\n(hmu+\\n(tpp+\\$1v
  410. ..
  411. .de m3
  412. .nr bm \\n(fmu+\\n(tpp+\\$1v
  413. ..
  414. .de m4
  415. .nr _0 \\n(fmu
  416. .nr fm \\$1v
  417. .nr bm +\\n(fmu-\\n(_0u
  418. ..
  419. .de sk
  420. .if \\n(.$>0 \
  421. .tm Line \\n(c. -- I cannot skip multiple pages
  422. .nr ?s 1
  423. ..
  424. .if !\n(.g .ig
  425. .de re
  426. .ta T 0.5i
  427. ..
  428. .if \n(.g .ig
  429. .de re
  430. .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
  431. ..
  432. .de ba
  433. .ie \\n(.$ \
  434. .nr $i \\$1n
  435. .el \
  436. .nr $i \\n(siu*\\n($0u
  437. ..
  438. .de hl
  439. .br
  440. .ie \n(.g .do nr _I \\n[.in]
  441. .el .nr _I \\n(.i
  442. \l'\\n(.lu-\\n(_Iu'
  443. .sp
  444. ..
  445. .de pp
  446. .lp \\n(piu
  447. ..
  448. .de lp
  449. .@p
  450. .if \\n(.$ \
  451. .ti +\\$1
  452. .nr $p 0 1
  453. ..
  454. .de ip
  455. .if (\\n(ii>0)&(\\n(ii<1n) \
  456. .nr ii \\n(iin
  457. .nr _0 \\n(ii
  458. .if \\n(.$>1 \
  459. .nr _0 \\$2n
  460. .@p \\n(_0u
  461. .nr _I \\n(.iu
  462. .in 0
  463. .di |i
  464. \&\\$1
  465. .br
  466. .di
  467. .in \\n(_Iu
  468. .ds |j \\*(|i\\
  469. .if \\w"\\*(|j" \
  470. \{\
  471. .ti -\\n(_0u
  472. .ie \\w"\\*(|j">=\\n(_0 \
  473. \{\
  474. \\*(|j
  475. .br
  476. .\}
  477. .el \\*(|j\h'|\\n(_0u'\c
  478. .\}
  479. .rr _0
  480. .rm |i |j
  481. ..
  482. .de np
  483. .if '\\n($p'-1' \
  484. .nr $p 0
  485. .nr $p +1
  486. .@p \w'\0(000)\0'u
  487. .ti -\w'\0(000)\0'u
  488. \0(\\n($p)\h'|\w'\0(000)\0'u'\c
  489. ..
  490. .de bu
  491. .br
  492. .if '\\n($p'-1' \
  493. .ns
  494. .nr $p 0-1
  495. .@p \w'\0\(bu\0'u
  496. .ti -\w'\0\(bu\0'u
  497. \0\(bu\0\c
  498. ..
  499. .de @p
  500. .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
  501. .in \\n($iu+\\n(pou
  502. .if \\n(.$ \
  503. .in +\\$1n
  504. .ce 0
  505. .fi
  506. .@F \\n(pf
  507. .sz \\n(pp
  508. .sp \\n(psu
  509. .ne \\n(.Lv+\\n(.Vu
  510. .ns
  511. ..
  512. .de sh
  513. .fi
  514. .if (\\n(si>0)&(\\n(si<1n) \
  515. .nr si \\n(sin
  516. .ce 0
  517. .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
  518. .if !"\\$2"_" \
  519. \{\
  520. .ds |n \&\\$2
  521. .$p "\\*(|n" "\\*($n" \\n($0
  522. .$0 "\\*(|n" "\\*($n" \\n($0
  523. .rm |n
  524. .\}
  525. .nr $p 0 1
  526. ..
  527. .de @d
  528. .if !""\\$1" \
  529. .nr $0 \\$1
  530. .if \\n($0&(\\n(.$>1) \
  531. .nr $\\n($0 \\$2
  532. .ds $n \&
  533. .ie \\n($0>=1 \
  534. \{\
  535. .if '\\n($1'0' \
  536. .nr $1 1
  537. .if (\\n(.$>=3) .if !"\\$3"-" \
  538. .nr $1 \\$3
  539. .as $n \\n($1
  540. .\}
  541. .el \
  542. .nr $1 0
  543. .ie \\n($0>=2 \
  544. \{\
  545. .if '\\n($2'0' \
  546. .nr $2 1
  547. .if (\\n(.$>=4) .if !"\\$4"-" \
  548. .nr $2 \\$4
  549. .as $n .\\n($2
  550. .\}
  551. .el \
  552. .nr $2 0
  553. .ie \\n($0>=3 \
  554. \{\
  555. .if '\\n($3'0' \
  556. .nr $3 1
  557. .if (\\n(.$>=5) .if !"\\$5"-" \
  558. .nr $3 \\$5
  559. .as $n .\\n($3
  560. .\}
  561. .el \
  562. .nr $3 0
  563. .ie \\n($0>=4 \
  564. \{\
  565. .if '\\n($4'0' \
  566. .nr $4 1
  567. .if (\\n(.$>=6) .if !"\\$6"-" \
  568. .nr $4 \\$6
  569. .as $n .\\n($4
  570. .\}
  571. .el \
  572. .nr $4 0
  573. .ie \\n($0>=5 \
  574. \{\
  575. .if '\\n($5'0' \
  576. .nr $5 1
  577. .if (\\n(.$>=7) .if !"\\$7"-" \
  578. .nr $5 \\$7
  579. .as $n .\\n($5
  580. .\}
  581. .el \
  582. .nr $5 0
  583. .ie \\n($0>=6 \
  584. \{\
  585. .if '\\n($6'0' \
  586. .nr $6 1
  587. .if (\\n(.$>=8) .if !"\\$8"-" \
  588. .nr $6 \\$8
  589. .as $n .\\n($6
  590. .\}
  591. .el \
  592. .nr $6 0
  593. ..
  594. .de sx
  595. .ce 0
  596. .ul 0
  597. .nr _0 \\n($0-1
  598. .if \\n(.$ .nr _0 +1
  599. .if \\n(.$ .nr _0 \\$1
  600. .@d \\n(_0
  601. .rr _0
  602. .$p "" "" \\n($0
  603. .nr $p 0 1
  604. ..
  605. .de uh
  606. .$p "\\$1"
  607. .$0 "\\$1"
  608. ..
  609. .de $p
  610. .if (\\n(si>0)&(\\n(.$>2) \
  611. .nr $i \\$3*\\n(si
  612. .in \\n($iu
  613. .ie !"\\$1\\$2"" \
  614. \{\
  615. .sp \\n(ssu
  616. .ne \\n(.Lv+\\n(.Vu+\\n(psu+((\\n(spp*\\n($vu*\\n(.Lu)/100u)
  617. .ie 0\\$3 \
  618. .ti -(\\n(siu-\\n(sou)
  619. .el \
  620. .ti +\\n(sou
  621. .@F \\n(sf
  622. .sz \\n(sp
  623. .if 0\\$3 \
  624. .$\\$3
  625. .if \w"\\$2">0 \\$2.
  626. .if \w"\\$1">0 \\$1\f1\ \ \&
  627. .\}
  628. .el \
  629. .sp \\n(psu
  630. .@F \\n(pf
  631. .sz \\n(pp
  632. ..
  633. .de 2c
  634. .br
  635. .if \\n($m>1 \
  636. .1c
  637. .nr $c 1
  638. .nr $m 2
  639. .if \\n(.$>1 \
  640. .nr $m \\$2
  641. .if \\n(.$>0 \
  642. .nr $s \\$1n
  643. .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
  644. .xl \\n($lu
  645. .mk _k
  646. .ns
  647. ..
  648. .de 1c
  649. .br
  650. .nr $c 1
  651. .nr $m 1
  652. .ll \\n(_Lu
  653. .sp |\\n(.hu
  654. .@O \\n(_ou
  655. ..
  656. .de bc
  657. .sp 24i
  658. ..
  659. .de (z
  660. .if \n@>4 .tm >> (z, .z=\n(.z
  661. .@D 4 \\$1 \\$2
  662. .@(
  663. ..
  664. .de )z
  665. .if \n@>4 .tm >> )z, .z=\n(.z
  666. .sp \\n(zsu
  667. .@)
  668. .if \n@>4 .tm -- )z << @), .z=\n(.z
  669. .rr _0
  670. .if !\\n(?b \
  671. .nr dn +(\\n(ppp*\\n($vu)/200u+\\n(zsu
  672. .nr dl -\n(.H
  673. .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
  674. \{\
  675. .nr ?a 1
  676. .if (\\n(dl>\\n($l)&(\\n($m>1) \
  677. .nr ?w 1
  678. .ds |x |t
  679. .\}
  680. .el \
  681. \{\
  682. .nr ?b 1
  683. .if (\\n(dl>\\n($l)&(\\n($m>1) \
  684. .nr ?W 1
  685. .nr _b +\\n(dnu
  686. .if \\n(.p-\\n(nl-\n(.V<\\n(_b \
  687. .nr _b \\n(.p-\\n(nl-\n(.V
  688. .ch @f -\\n(_bu
  689. .ds |x |b
  690. .\}
  691. .da \\*(|x
  692. .nf
  693. .ls 1
  694. .nr ?k 1
  695. .if \n@>4 .tm -- )z >> \\*(|x
  696. \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
  697. .|k
  698. .ec
  699. .if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
  700. .nr ?k 0
  701. .rm |k
  702. .da
  703. .in 0
  704. .ls 1
  705. .xl \\n($lu
  706. .ev
  707. .if \n@>4 .tm << )z, .z=\\n(.z
  708. ..
  709. .de @k
  710. .if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
  711. .ev 1
  712. .nf
  713. .ls 1
  714. .in 0
  715. .sp \\n(zsu
  716. .\\$1
  717. .ec
  718. .br
  719. .rm \\$1
  720. .ev
  721. ..
  722. .de (t
  723. .(z \\$1 \\$2
  724. ..
  725. .de )t
  726. .)z \\$1 \\$2
  727. ..
  728. .de (b
  729. .br
  730. .@D 3 \\$1 \\$2
  731. .sp \\n(bsu
  732. .@(
  733. ..
  734. .de )b
  735. .br
  736. .@)
  737. .if (\\n(bt=0):(\\n(.t<\\n(bt) \
  738. .ne \\n(dnu
  739. .ls 1
  740. .nf
  741. .|k
  742. .ec
  743. .fi
  744. .in 0
  745. .xl \\n($lu
  746. .ev
  747. .rm |k
  748. .sp \\n(bsu+\\n(.Lv-1v
  749. ..
  750. .de @(
  751. .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
  752. .@M
  753. .di |k
  754. \!'rs
  755. ..
  756. .de @M
  757. .nr ?k 1
  758. .@C 1
  759. .@F \\n(df
  760. .if \\n($R .@V
  761. .vs \\n(.sp*\\n($Vu/100u
  762. .nf
  763. .if "\\*(|p"F" \
  764. .fi
  765. .if \\n(_d=4 \
  766. .in 0
  767. .if \\n(_d=3 \
  768. \{\
  769. .in +\\n(biu
  770. .xl -\\n(biu
  771. .\}
  772. .if \\n(_d=1 \
  773. .ce 10000
  774. ..
  775. .de @)
  776. .br
  777. .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
  778. .nr ?k 0
  779. .di
  780. .in 0
  781. .ce 0
  782. ..
  783. .de (c
  784. .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
  785. .di |c
  786. ..
  787. .de )c
  788. .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
  789. .br
  790. .di
  791. .if \n@>4 .tm >> .)c .l=\\n(.l .i=\\n(.i $i=\\n($i dl=\\n(dl
  792. .ev 1
  793. .ls 1
  794. .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
  795. .if \n@>4 .tm -- .)c << .in .l=\\n(.l .i=\\n(.i dl=\\n(dl
  796. .nf
  797. .|c
  798. .ec
  799. .in
  800. .ls
  801. .ev
  802. .rm |c
  803. ..
  804. .de (q
  805. .br
  806. .@C 1
  807. .fi
  808. .sp \\n(qsu
  809. .in +\\n(qiu
  810. .xl -\\n(qiu
  811. .sz \\n(qp
  812. ..
  813. .de )q
  814. .br
  815. .ev
  816. .sp \\n(qsu+\\n(.Lv-1v
  817. .nr ?k 0
  818. ..
  819. .de (l
  820. .br
  821. .sp \\n(bsu
  822. .@D 3 \\$1 \\$2
  823. .@M
  824. ..
  825. .de )l
  826. .br
  827. .ev
  828. .sp \\n(bsu+\\n(.Lv-1v
  829. .nr ?k 0
  830. ..
  831. .de EQ
  832. .ec
  833. .if !\\n(?e \
  834. \{\
  835. .if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
  836. .@D 1 "\\$1" "\\$2"
  837. .@C 2
  838. .di |e
  839. .\}
  840. .ls 1
  841. .in 0
  842. .nf
  843. ..
  844. .de EN
  845. .br
  846. .ie "\\$1"C" \
  847. \{\
  848. .nr ?e 1
  849. .sp \\n(esu
  850. .\}
  851. .el \
  852. \{\
  853. .nr ?e 0
  854. .di
  855. .if \\n(dn \
  856. .@q
  857. .rm |e
  858. .ev
  859. .\}
  860. ..
  861. .de @q
  862. .nr _Q \\n(dnu
  863. .ev
  864. .sp \\n(esu
  865. .if !"\\n(.z"" \!.ne \\n(_Qu
  866. .ne \\n(_Qu+\n(.Vu
  867. .@C 2
  868. .if \\n(_d=1 \
  869. .in (\\n(.lu+\\n($iu-\\n(dlu)/2u
  870. .if \\n(_d=2 \
  871. .in \\n($iu
  872. .if \\n(_d=3 \
  873. .in \\n(biu+\\n($iu
  874. .if \\n(_d=4 \
  875. .in 0
  876. .mk _q
  877. .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
  878. .if !"\\*(|p"" \
  879. \{\
  880. .rs
  881. .sp (\\n(_Qu-\\n(.vu)/2u
  882. .tl """\\*(|p"
  883. .rt \\n(_qu
  884. .\}
  885. .|e
  886. .sp |\\n(_qu+\\n(_Qu
  887. .sp \\n(esu+\\n(.Lv-1v
  888. .rr _q
  889. .rr _Q
  890. ..
  891. .de TS
  892. .sp \\n(bsu
  893. .@C 1
  894. .fi
  895. .if "\\$1"H" \
  896. \{\
  897. .di |h
  898. .nr ?T 1
  899. .\}
  900. .ls 1
  901. .ch @f -(\\n(_bu+1v)
  902. .if \\n(.p-\\n(_b-1v<=\\n(nl \
  903. .ch @f \\n(nlu+\n(.Vu
  904. ..
  905. .de TH
  906. .nr T. 0
  907. .T# 0
  908. .di
  909. .nr _T \\n(?T
  910. .nr ?T 0
  911. .ne \\n(dnu+1v
  912. .nr ?T \\n(_T
  913. .nr _i \\n(.i
  914. .in 0
  915. .|h
  916. .in \\n(_iu
  917. .rr _i
  918. .mk #T
  919. ..
  920. .de TE
  921. .nr ?T 0
  922. .ch @f -\\n(_bu
  923. .if \\n(.p-\\n(_b<=\\n(nl \
  924. .ch @f \\n(nlu+\n(.Vu
  925. .ev
  926. .sp \\n(bsu+\\n(.Lv-1v
  927. .re
  928. ..
  929. .de T&
  930. ..
  931. .de ][
  932. .if \\$1>5 .tm Bad arg to []
  933. .[\\$1
  934. ..
  935. .de [0
  936. .(f
  937. .ip "\\*([F.\0"
  938. .if !"\\*([A"" \\*([A,
  939. .if !"\\*([T"" \\f2\\*([T\\f1\c
  940. .if !"\\*([T"" .if !"\\*([O"" ,\
  941. .ie !"\\*([O"" \\*([O
  942. .el .if !"\\*([T"" \&.
  943. .if !"\\*([D"" \\*([D.
  944. .@p
  945. .)f
  946. ..
  947. .de [1
  948. .(f
  949. .ip "\\*([F.\0"
  950. \\*([A,
  951. .if !"\\*([T"" \\*(lq\\*([T,\\*(rq
  952. .if "\\*([V"" \\f2\\*([J\\f1,
  953. .if !"\\*([V"" \\f2\\*([J\\f1
  954. .if !"\\*([V"" \\f3\\*([V\\f1\c
  955. .if !"\\*([N"" (\\*([N)\c
  956. .if !"\\*([P"" \
  957. \{\
  958. .ie \\n([P>0 \ pp.\&
  959. .el \ p.\&
  960. \\*([P
  961. .\}
  962. .if !"\\*([I"" .if "\\*([R"" \\*([I,
  963. (\\*([D).
  964. .if !"\\*([O"" \\*([O
  965. .)f
  966. ..
  967. .de [2
  968. .(f
  969. .ip "\\*([F.\0"
  970. \\*([A, \\f2\\*([T,\\f1
  971. \\*([I\c
  972. .if !"\\*([C"" , \\*([C\c
  973.  (\\*([D).
  974. .if !"\\*([G"" Gov't. ordering no. \\*([G
  975. .if !"\\*([O"" \\*([O
  976. .)f
  977. ..
  978. .de [3
  979. .(f
  980. .ip "\\*([F.\0"
  981. \\*([A, \\*(lq\\*([T,\\*(rq
  982. .if !"\\*([P"" pp. \\*([P
  983. in \\f2\\*([B\\f1, \c
  984. .if !"\\*([E"" ed. \\*([E, \c
  985. .if !"\\*([I"" \\*([I\c
  986. .if !"\\*([C"" , \\*([C\c
  987.  (\\*([D).
  988. .if !"\\*([O"" \\*([O
  989. .)f
  990. ..
  991. .de [4
  992. .(f
  993. .ip "\\*([F.\0"
  994. \\*([A, \\*(lq\\*([T,\\*(rq
  995. \\*([R\c
  996. .if !"\\*([G"" \& (\\*([G)\c
  997. .if !"\\*([I"" , \\*([I\c
  998. .if !"\\*([C"" , \\*([C\c
  999.  (\\*([D).
  1000. .if !"\\*([O"" \\*([O
  1001. .)f
  1002. ..
  1003. .de [5
  1004. .(f
  1005. .ip "\\*([F.\0"
  1006. \\*([A, \\f2\\*([T\\f1,
  1007. .ie \\n(TN \\*([M.
  1008. .el Bell Laboratories internal memorandum (\\*([D).
  1009. .)f
  1010. ..
  1011. .de ]<
  1012. .$p References
  1013. .lp
  1014. .rm (f )f
  1015. ..
  1016. .de ]>
  1017. .sp
  1018. ..
  1019. .de ]-
  1020. .rm [V [P [A [T [N [C [B [O [R [I [E [D
  1021. ..
  1022. .ie \n(.V<1v \
  1023. \{\
  1024. .ds [. \s-2\v'-.4m'\f1
  1025. .ds .] \v'.4m'\s+2\fP
  1026. .\}
  1027. .el \
  1028. \{\
  1029. .ds [. " [
  1030. .ds .] ]
  1031. .\}
  1032. .de IS
  1033. .nr g7 \\n(.u
  1034. .ls 1
  1035. ..
  1036. .de IF
  1037. .if \\n(g7 .fi
  1038. .ls
  1039. ..
  1040. .de IE
  1041. .if \\n(g7 .fi
  1042. .ls
  1043. ..
  1044. .de PS
  1045. .sp 0.3
  1046. .nr g7 \\$2
  1047. .in (u;\\n(.l-\\n(g7>?0/2)
  1048. .ne \\$1u
  1049. .nr g7 \\n(.u
  1050. .ls 1
  1051. ..
  1052. .de PE
  1053. .ls
  1054. .in
  1055. .if \\n(g7 .fi
  1056. .sp .6
  1057. ..
  1058. .de GS
  1059. .nr g7 (\\n(.lu-\\n(g1u)/2u
  1060. .if "\\$1"L" .nr g7 \\n(.iu
  1061. .if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
  1062. .in \\n(g7u
  1063. .nr g7 \\n(.u
  1064. .ls 1
  1065. .nf
  1066. .ne \\n(g2u
  1067. ..
  1068. .de GE
  1069. .GF
  1070. .sp .6
  1071. ..
  1072. .de GF
  1073. .ls
  1074. .in
  1075. .if \\n(g7 .fi
  1076. ..
  1077. .de sz
  1078. .ps \\$1
  1079. .if \\n($r .@v
  1080. .vs \\n(.sp*\\n($vu/100u
  1081. ..
  1082. .de @v
  1083. .if (1i>=240u)&(1p<=\\n($r)&(\\n($r<=4p) .nr $v \\n($r00/1p
  1084. ..
  1085. .de @V
  1086. .if (1i>=240u)&(1p<=\\n($R)&(\\n($R<=4p) .nr $V \\n($R00/1p
  1087. ..
  1088. .de @E
  1089. .ie \\n(.f<10 \
  1090. .ds _F \\n(.f
  1091. .el \
  1092. \{\
  1093. .ie \\n(.f<100&\n(.g \
  1094. .ds _F (\\n(.f
  1095. .el \
  1096. .ds _F P
  1097. .\}
  1098. ..
  1099. .de r
  1100. .@E
  1101. .ft 1
  1102. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1103. ..
  1104. .de i
  1105. .@E
  1106. .ft 2
  1107. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1108. ..
  1109. .de b
  1110. .@E
  1111. .ft 3
  1112. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1113. ..
  1114. .de rb
  1115. .@E
  1116. .ft 3
  1117. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1118. ..
  1119. .de bi
  1120. .@E
  1121. .ft 4
  1122. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1123. ..
  1124. .de u
  1125. \&\\$1\l'|0\(ul'\\$2
  1126. ..
  1127. .if !\n(.g .ig
  1128. .de u
  1129. \Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2
  1130. ..
  1131. .de q
  1132. \&\\*(lq\\$1\\*(rq\\$2
  1133. ..
  1134. .de bx
  1135. \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
  1136. ..
  1137. .de sm
  1138. \s-1\\$1\\s0\\$2
  1139. ..
  1140. .de @F
  1141. .nr ~ \\$1
  1142. .if \\n~>0 \
  1143. .ft \\n~
  1144. .rr ~
  1145. ..
  1146. .de (f
  1147. .ec
  1148. .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
  1149. .ie "\\n(.z"" \
  1150. \{\
  1151. .nr _D \\n(dn
  1152. .nr _0 1v+\\n(nlu
  1153. .ev 2
  1154. .da |f
  1155. .in 0
  1156. .xl \\n($lu-\\n(fuu
  1157. .@F \\n(ff
  1158. .sz \\n(fp
  1159. .vs \\n(.sp*\\n($Vu/100u
  1160. .if !\\n(?f \
  1161. \{\
  1162. .nr _b +1v
  1163. .$s
  1164. .\}
  1165. .br
  1166. .if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
  1167. \{\
  1168. .da
  1169. .bc
  1170. .if !\\n(?f \
  1171. .rm |f
  1172. .da |f
  1173. .in 0
  1174. .xl \\n($lu-\\n(fuu
  1175. .@F \\n(ff
  1176. .sz \\n(fp
  1177. .vs \\n(.sp*\\n($Vu/100u
  1178. .if !\\n(?f \
  1179. .$s
  1180. .br
  1181. .\}
  1182. .rr _0
  1183. .sp \\n(fsu
  1184. .nr ?f 1
  1185. .fi
  1186. .if !"\\$1"_" \
  1187. .ti \\n(fiu
  1188. .if \n@>2 .tm    << (f $f=\\n($f
  1189. .\}
  1190. .el \
  1191. \{\
  1192. .ev 2
  1193. .in 0
  1194. .xl \\n($lu-\\n(fuu
  1195. .@F \\n(ff
  1196. .sz \\n(fp
  1197. .vs \\n(.sp*\\n($Vu/100u
  1198. .fi
  1199. \!.(f \\$1
  1200. \!.@N
  1201. .\}
  1202. ..
  1203. .de @N
  1204. .ie "\\n(.z"" .nf
  1205. .el \!.@N
  1206. ..
  1207. .de )f
  1208. .ie "\\n(.z"|f" \
  1209. \{\
  1210. .if \\n* \
  1211. .nr $f +1
  1212. .ds * \\*{\\n($f\\*}\k*
  1213. .nr * 0
  1214. .in 0
  1215. .da
  1216. .ev
  1217. .if \\n(_w<\\n(dl \
  1218. .nr _w \\n(dl
  1219. .nr _b +\\n(dn
  1220. .ch @f -\\n(_bu
  1221. .if \\n(.p-\\n(_b<=\\n(nl \
  1222. .ch @f \\n(nlu+\n(.Vu
  1223. .nr dn \\n(_D
  1224. .rr _D
  1225. .\}
  1226. .el \
  1227. \{\
  1228. .br
  1229. \!.)f
  1230. .ev
  1231. .\}
  1232. ..
  1233. .@R ff
  1234. .if \n(ff<=0 \
  1235. .nr ff 1
  1236. .@R fp
  1237. .if \n(fp<=0 \
  1238. .nr fp 8
  1239. .de $s
  1240. \l'2i'
  1241. ..
  1242. .de (d
  1243. .am |d )d
  1244. .sp \\n(bsu
  1245. ..
  1246. .de )d
  1247. .if \\n# \
  1248. .nr $d +1
  1249. .ds # [\\n($d]\k#
  1250. .rr #
  1251. ..
  1252. .de pd
  1253. .|d
  1254. .rm |d
  1255. .nr $d 1 1
  1256. .ds # [1]\k#
  1257. ..
  1258. .nr _x 0 1
  1259. .af _x a
  1260. .de (x
  1261. .if \n@>4 .tm >> (x, .z=\\n(.z
  1262. .ds |X x
  1263. .if \\n(.$>0 \
  1264. .ds |X \\$1
  1265. .ie "\\n(.z"" \
  1266. .nr _z 0
  1267. .el \
  1268. .nr _z 1
  1269. .@\\n(_z
  1270. ..
  1271. .de @0
  1272. .am %\\*(|X )x
  1273. .sp \\n(xsu
  1274. .ti -\\n(piu
  1275. ..
  1276. .de @1
  1277. .if "\\n(_x"z" .nr _x 0
  1278. .de =\\n+(_x )x
  1279. ..
  1280. .de )x
  1281. .if \n@>4 .tm >> )x, .z=\\n(.z
  1282. .ie "\\n(.z"" \
  1283. \{\
  1284. .ds |x \\n%
  1285. .if \\n(.$>0 \
  1286. .ds |x \\$1
  1287. .if "\\*(|x"_" \
  1288. .ig ..
  1289. .am %\\*(|X ..
  1290. .if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
  1291. .ti +\\n(xuu
  1292. \\\\a\\\\t\\$2\\*(|x
  1293. ...
  1294. .rm |x
  1295. .rm |X
  1296. .\}
  1297. .el \
  1298. \{\
  1299. \!.(x \\*(|X
  1300. \!\\\\*(=\\n(_x\\\\
  1301. \!.)x \\$1 \\$2
  1302. \!.rm =\\n(_x
  1303. .\}
  1304. ..
  1305. .de xp
  1306. .br
  1307. .@C 2
  1308. .ls 1
  1309. .vs \\n(.sp*\\n($Vu/100u
  1310. .fi
  1311. .in +\\n(piu
  1312. .ds |X x
  1313. .if \\n(.$>0 \
  1314. .ds |X \\$1
  1315. .xl -(\\n(xuu+\w'...'u)
  1316. .di |x
  1317. .%\\*(|X
  1318. .br
  1319. .di
  1320. .rm %\\*(|X
  1321. .xl \\n($lu
  1322. .rm |X
  1323. .ev
  1324. .nf
  1325. .in 0
  1326. .ta \\n(.lu-\\n(xuuR \\n(.luR
  1327. .|x
  1328. .fi
  1329. .in
  1330. .rm |x
  1331. ..
  1332. .de +c
  1333. .ep
  1334. .if \\n(?o:\\n(?a \
  1335. \{\
  1336. .bp
  1337. .rs
  1338. .ep
  1339. .\}
  1340. .nr ?C 1
  1341. .nr $f 1 1
  1342. .ds * \\*{1\\*}\k*
  1343. .if \\n(?R \
  1344. .pn 1
  1345. .bp
  1346. .in \\n($iu
  1347. .rs
  1348. .ie \\n(.$ \
  1349. .$c "\\$1"
  1350. .el \
  1351. .sp 3
  1352. ..
  1353. .de ++
  1354. .nr _0 0
  1355. .if "\\$1"C" \
  1356. .nr _0 1
  1357. .if "\\$1"RC" \
  1358. .nr _0 11
  1359. .if "\\$1"A" \
  1360. .nr _0 2
  1361. .if "\\$1"RA" \
  1362. .nr _0 12
  1363. .if "\\$1"P" \
  1364. .nr _0 3
  1365. .if "\\$1"B" \
  1366. .nr _0 4
  1367. .if "\\$1"AB" \
  1368. .nr _0 5
  1369. .if \\n(_0=0 \
  1370. .tm Line \\n(c. -- Bad mode to .++
  1371. .nr ?R 0
  1372. .if \\n(_0>10 \
  1373. .\{
  1374. .nr ?R 1
  1375. .nr _0 -10
  1376. .\}
  1377. .nr ch 0 1
  1378. .if (\\n(_0=3):(\\n(_0=5) \
  1379. .pn 1
  1380. .if !\\n(_0=\\n(_M .if \\n(_M=3 \
  1381. .pn 1
  1382. .ep
  1383. .if \\n(_0=1 \
  1384. \{\
  1385. .af ch 1
  1386. .af % 1
  1387. .\}
  1388. .if \\n(_0=2 \
  1389. \{\
  1390. .af ch A
  1391. .af % 1
  1392. .\}
  1393. .if \\n(_0=3 \
  1394. .af % i
  1395. .if \\n(_0=4 \
  1396. .af % 1
  1397. .if \\n(_0=5 \
  1398. .af % 1
  1399. .if \\n(.$>1 \
  1400. .he \\$2
  1401. .nr _M \\n(_0
  1402. .rr _0
  1403. ..
  1404. .de $c
  1405. .sz 12
  1406. .ft 3
  1407. .ce 1000
  1408. .if \\n(_M<3 \
  1409. .nr ch +1
  1410. .ie \\n(_M=1 CHAPTER\ \ \\n(ch
  1411. .el .if \\n(_M=2 APPENDIX\ \ \\n(ch
  1412. .if \w"\\$1" .sp 3-\\n(.L
  1413. .if \w"\\$1" \\$1
  1414. .if (\\n(_M<3):(\w"\\$1") \
  1415. .sp 4-\\n(.L
  1416. .ce 0
  1417. .ft
  1418. .sz
  1419. .ie \\n(_M=1 \
  1420. .$C Chapter \\n(ch "\\$1"
  1421. .el .if \\n(_M=2 \
  1422. .$C Appendix \\n(ch "\\$1"
  1423. ..
  1424. .de tp
  1425. .hx
  1426. .bp
  1427. .br
  1428. .rs
  1429. .pn \\n%
  1430. ..
  1431. .if \n(mo=1 .ds mo January
  1432. .if \n(mo=2 .ds mo February
  1433. .if \n(mo=3 .ds mo March
  1434. .if \n(mo=4 .ds mo April
  1435. .if \n(mo=5 .ds mo May
  1436. .if \n(mo=6 .ds mo June
  1437. .if \n(mo=7 .ds mo July
  1438. .if \n(mo=8 .ds mo August
  1439. .if \n(mo=9 .ds mo September
  1440. .if \n(mo=10 .ds mo October
  1441. .if \n(mo=11 .ds mo November
  1442. .if \n(mo=12 .ds mo December
  1443. .if \n(dw=1 .ds dw Sunday
  1444. .if \n(dw=2 .ds dw Monday
  1445. .if \n(dw=3 .ds dw Tuesday
  1446. .if \n(dw=4 .ds dw Wednesday
  1447. .if \n(dw=5 .ds dw Thursday
  1448. .if \n(dw=6 .ds dw Friday
  1449. .if \n(dw=7 .ds dw Saturday
  1450. .nr y2 \n(yr%100
  1451. .af y2 00
  1452. .nr y4 \n(yr+1900
  1453. .ds td \*(mo \n(dy, \n(y4
  1454. .rr x
  1455. .nr $v \n(.v00+\n(.sp-1/\n(.sp
  1456. .nr $V \n($v
  1457. .nr hm 4v
  1458. .nr tm 7v
  1459. .nr bm 6v
  1460. .nr fm 3v
  1461. .nr tf 3
  1462. .nr tp 10
  1463. .hy 14
  1464. .nr bi 4m
  1465. .nr pi 5n
  1466. .nr pf 1
  1467. .nr pp 10
  1468. .nr qi 4n
  1469. .nr qp -1
  1470. .nr ii 5n
  1471. .nr $m 1
  1472. .nr $s 4n
  1473. .nr sf 3
  1474. .nr sp 10
  1475. .nr ss 12p
  1476. .nr si 0
  1477. .@R 0x
  1478. .ds { \v'-0.4m'\x'\\n(0x=0*-0.2m'\s-3
  1479. .ds } \s0\v'0.4m'
  1480. .ds [ \*{
  1481. .ds ] \*}
  1482. .ds < \v'0.4m'\x'\\n(0x=0*0.2m'\s-3
  1483. .ds > \s0\v'-0.4m'
  1484. .ds - \(em
  1485. .@S |0
  1486. .@S |1
  1487. .@S |2
  1488. .@S |3
  1489. .@S $H
  1490. .@S $0
  1491. .@S $1
  1492. .@S $2
  1493. .@S $3
  1494. .@S $4
  1495. .@S $5
  1496. .@S $6
  1497. .@S $7
  1498. .@S $8
  1499. .@S $9
  1500. .@S ..
  1501. .@R po
  1502. .@R $0
  1503. .@R $i
  1504. .@R $p
  1505. .@R $r
  1506. .@R $R
  1507. .@R df
  1508. .@R so
  1509. .@R fu
  1510. .@R bt
  1511. .@R *
  1512. .@R ?a
  1513. .@R ?b
  1514. .@R ?C
  1515. .@R ?e
  1516. .@R ?H
  1517. .@R ?I
  1518. .@R ?n
  1519. .@R ?o
  1520. .@R ?R
  1521. .@R ?s
  1522. .@R ?T
  1523. .@R ?W
  1524. .@R ?w
  1525. .nr fi 0.3i
  1526. .nr _o \n(.o
  1527. .nr $b 3
  1528. .nr ps 0.35v
  1529. .if \n(ps<\n(.V .nr ps \n(.V
  1530. .nr bs \n(ps
  1531. .nr qs \n(ps
  1532. .nr zs 1v
  1533. .nr xs 0.2v
  1534. .nr xu 0.5i
  1535. .nr fs 0.2v
  1536. .nr es 0.5v
  1537. .if \n(es<\n(.V .nr es \n(.V
  1538. .wh 0 @h
  1539. .nr $l \n(.lu
  1540. .nr _L \n(.lu
  1541. .nr $c 1
  1542. .nr $f 1 1
  1543. .ds * \*{1\*}\k*
  1544. .nr $d 1 1
  1545. .ds # [1]\k#
  1546. .nr _M 1
  1547. .ds lq \(lq
  1548. .ds rq \(rq
  1549. .em @z
  1550. .ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
  1551. .ds #v 0.6m
  1552. .ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\(aa\h'|\\n_u'
  1553. .ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\(ga\h'|\\n_u'
  1554. .ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m)'\v'-\*(#v'\z.\h'0.2m'.\h'|\\n_u'\v'\*(#v'
  1555. .ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'^\h'|\\n_u'
  1556. .ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'~\h'|\\n_u'
  1557. .ds , \k_\h'-(\\n(.wu)',\h'|\\n_u'
  1558. .ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\s-4v\s0\v'\*(#v'\h'|\\n_u'
  1559. .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\z\(de\v'0.4n'\h'|\\n_u'
  1560. .ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
  1561. .ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
  1562. .rm #h #v
  1563. .ll 6.0i
  1564. .lt 6.0i
  1565. .de @U
  1566. .tm The \\$1 macro has been removed from this version of the -me macros.
  1567. ..
  1568. .de lo
  1569. .@U lo
  1570. ..
  1571. .de th
  1572. .@U th
  1573. ..
  1574. .de ac
  1575. .@U ac
  1576. ..
  1577.